home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / grafix / raytracing / raystorm / examples / arexx / attrtest1.ray < prev    next >
Encoding:
Text File  |  1996-02-26  |  3.0 KB  |  165 lines
  1. /***************
  2.  * NAME:        attrtest1.rexx
  3.  * VERSION:     1.0 25.06.1995
  4.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  5.  * AUTHORS:     Andreas Heumann
  6.  * BUGS:        none
  7.  * TO DO:       none
  8.  * HISTORY:     DATE  NAME  COMMENT
  9.  *              25.06.95 ah    first release
  10.  ***************/
  11.  
  12. signal on error
  13.  
  14. options results
  15.  
  16. IF ~show('P','RAYSTORM') THEN DO
  17.    address COMMAND 'run >NIL: <NIL: /RayStorm'
  18.    address COMMAND WaitForPort RAYSTORM
  19. END  
  20.  
  21. address RAYSTORM
  22.  
  23. 'TEXTUREPATH /textures'
  24.  
  25. 'SETSCREEN 160 128'
  26. 'SETCAMERA <0,0,150> <0,0,0> <0,1,0> 56.25 45'
  27. 'SETWORLD [0,0,255] [60,60,60]'
  28. 'POINTLIGHT <100,-100,500> [255,255,255] SHADOW'
  29.  
  30. 'NEWSURFACE ATTR0'
  31. 'AMBIENT [255,0,0]'
  32. 'DIFFUSE [255,0,0]'
  33. 'TRANSPAR [255,255,255]'
  34. 'REFLECT [0,0,0]'
  35.  
  36. 'NEWSURFACE ATTR1'
  37. 'AMBIENT [255,0,0]'
  38. 'DIFFUSE [255,0,0]'
  39. 'TRANSPAR [255,255,255]'
  40. 'REFLECT [85,85,85]'
  41.  
  42. 'NEWSURFACE ATTR2'
  43. 'AMBIENT [255,0,0]'
  44. 'DIFFUSE [255,0,0]'
  45. 'TRANSPAR [255,255,255]'
  46. 'REFLECT [170,170,170]'
  47.  
  48. 'NEWSURFACE ATTR3'
  49. 'AMBIENT [255,0,0]'
  50. 'DIFFUSE [255,0,0]'
  51. 'TRANSPAR [255,255,255]'
  52. 'REFLECT [255,255,255]'
  53.  
  54. 'NEWSURFACE ATTR4'
  55. 'AMBIENT [255,0,0]'
  56. 'DIFFUSE [255,0,0]'
  57. 'TRANSPAR [170,170,170]'
  58. 'REFLECT [0,0,0]'
  59.  
  60. 'NEWSURFACE ATTR5'
  61. 'AMBIENT [255,0,0]'
  62. 'DIFFUSE [255,0,0]'
  63. 'TRANSPAR [170,170,170]'
  64. 'REFLECT [85,85,85]'
  65.  
  66. 'NEWSURFACE ATTR6'
  67. 'AMBIENT [255,0,0]'
  68. 'DIFFUSE [255,0,0]'
  69. 'TRANSPAR [170,170,170]'
  70. 'REFLECT [170,170,170]'
  71.  
  72. 'NEWSURFACE ATTR7'
  73. 'AMBIENT [255,0,0]'
  74. 'DIFFUSE [255,0,0]'
  75. 'TRANSPAR [170,170,170]'
  76. 'REFLECT [255,255,255]'
  77.  
  78. 'NEWSURFACE ATTR8'
  79. 'AMBIENT [255,0,0]'
  80. 'DIFFUSE [255,0,0]'
  81. 'TRANSPAR [85,85,85]'
  82. 'REFLECT [0,0,0]'
  83.  
  84. 'NEWSURFACE ATTR9'
  85. 'AMBIENT [255,0,0]'
  86. 'DIFFUSE [255,0,0]'
  87. 'TRANSPAR [85,85,85]'
  88. 'REFLECT [85,85,85]'
  89.  
  90. 'NEWSURFACE ATTR10'
  91. 'AMBIENT [255,0,0]'
  92. 'DIFFUSE [255,0,0]'
  93. 'TRANSPAR [85,85,85]'
  94. 'REFLECT [170,170,170]'
  95.  
  96. 'NEWSURFACE ATTR11'
  97. 'AMBIENT [255,0,0]'
  98. 'DIFFUSE [255,0,0]'
  99. 'TRANSPAR [85,85,85]'
  100. 'REFLECT [255,255,255]'
  101.  
  102. 'NEWSURFACE ATTR12'
  103. 'AMBIENT [255,0,0]'
  104. 'DIFFUSE [255,0,0]'
  105. 'TRANSPAR [0,0,0]'
  106. 'REFLECT [0,0,0]'
  107.  
  108. 'NEWSURFACE ATTR13'
  109. 'AMBIENT [255,0,0]'
  110. 'DIFFUSE [255,0,0]'
  111. 'TRANSPAR [0,0,0]'
  112. 'REFLECT [85,85,85]'
  113.  
  114. 'NEWSURFACE ATTR14'
  115. 'AMBIENT [255,0,0]'
  116. 'DIFFUSE [255,0,0]'
  117. 'TRANSPAR [0,0,0]'
  118. 'REFLECT [170,170,170]'
  119.  
  120. 'NEWSURFACE ATTR15'
  121. 'AMBIENT [255,0,0]'
  122. 'DIFFUSE [255,0,0]'
  123. 'TRANSPAR [0,0,0]'
  124. 'REFLECT [255,255,255]'
  125.  
  126. 'NEWSURFACE PLANE'
  127. 'SPECULAR [0,0,0]'
  128. 'IMTEXTURE checker.itx <0,0,0.1> <0,0,0> <15,15,15>'
  129.  
  130. 'SPHERE ATTR0 <-45,-45,0> 10'
  131. 'SPHERE ATTR1 <-15,-45,0> 10'
  132. 'SPHERE ATTR2 <15,-45,0> 10'
  133. 'SPHERE ATTR3 <45,-45,0> 10'
  134.  
  135. 'SPHERE ATTR4 <-45,-15,0> 10'
  136. 'SPHERE ATTR5 <-15,-15,0> 10'
  137. 'SPHERE ATTR6 <15,-15,0> 10'
  138. 'SPHERE ATTR7 <45,-15,0> 10'
  139.  
  140. 'SPHERE ATTR8 <-45,15,0> 10'
  141. 'SPHERE ATTR9 <-15,15,0> 10'
  142. 'SPHERE ATTR10 <15,15,0> 10'
  143. 'SPHERE ATTR11 <45,15,0> 10'
  144.  
  145. 'SPHERE ATTR12 <-45,45,0> 10'
  146. 'SPHERE ATTR13 <-15,45,0> 10'
  147. 'SPHERE ATTR14 <15,45,0> 10'
  148. 'SPHERE ATTR15 <45,45,0> 10'
  149.  
  150. 'PLANE PLANE <0,0,-50> <0,0,1>'
  151.  
  152. 'STARTRENDER'
  153.  
  154. 'SAVEPIC attrtest1.iff'
  155.  
  156. 'CLEANUP'
  157.  
  158. exit 0
  159.  
  160. error:
  161. say "Error" rc "in line" sigl ":"
  162. GETERRORSTR rc
  163. say result
  164. exit 0
  165.